home *** CD-ROM | disk | FTP | other *** search
/ Mind Games (Tessera) / MindGames.iso / files / main.dxr / Internal_3_print screen object.ls < prev    next >
Encoding:
Text File  |  2002-11-25  |  1.4 KB  |  67 lines
  1. property mySprite, myMemberList, myIndex, myTotalScreens, myState
  2.  
  3. on new me
  4.   mySprite = createPuppetSprite(firstEmpty())
  5.   mySprite.loc = point(189, 405)
  6.   myMemberList = []
  7.   myState = "off"
  8.   return me
  9. end
  10.  
  11. on reset me
  12.   timeout("refreshScreens").forget()
  13.   myMemberList = []
  14.   myState = "close"
  15. end
  16.  
  17. on getList me, aList
  18.   myMemberList = []
  19.   repeat with n = aList[1] to aList[2]
  20.     myMemberList.add(member(n, 2))
  21.   end repeat
  22.   myTotalScreens = myMemberList.count
  23.   mySprite.blend = 0
  24.   mySprite.member = myMemberList[1]
  25.   myIndex = 1
  26.   timeout("refreshScreens").new(2000, #refresh, me)
  27.   myState = "open"
  28. end
  29.  
  30. on refresh me
  31.   mySprite.member = myMemberList[myIndex]
  32.   myState = "switchTo"
  33. end
  34.  
  35. on mUpdate me
  36.   case myState of
  37.     "open":
  38.       if mySprite.blend < 90 then
  39.         mySprite.blend = mySprite.blend + 10
  40.       else
  41.         mySprite.blend = mySprite.blend + 10
  42.         myState = "opened"
  43.       end if
  44.     "switchTo":
  45.       if mySprite.blend > 10 then
  46.         mySprite.blend = mySprite.blend - 10
  47.       else
  48.         if myIndex < myTotalScreens then
  49.           myIndex = myIndex + 1
  50.         else
  51.           myIndex = 1
  52.         end if
  53.         refresh(me)
  54.         mySprite.blend = mySprite.blend - 10
  55.         myState = "open"
  56.       end if
  57.     "close":
  58.       if mySprite.blend > 10 then
  59.         mySprite.blend = mySprite.blend - 10
  60.       else
  61.         mySprite.blend = 0
  62.         mySprite.member = member(0, 0)
  63.         myState = "off"
  64.       end if
  65.   end case
  66. end
  67.